home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 10 / Big_Mouth_The_10_1996_-_Side_D.d64 / sheet music (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  599b  |  28 lines
  1. 10 rem music.load.2
  2. 15 if f=0 then f=1:load "-sheet data",8,1
  3. 20 poke 53281,0:print"":g=13*4096
  4. 40 poke g+29,0:poke g+39,14:poke g+28,1
  5. 100 b=2*4096+1*256+15*16+0
  6. 110 tm=b+6
  7. 120 ad=b+7
  8. 130 sr=b+8
  9. 140 pc=b+9
  10. 150 wf=b+10
  11. 200 read t:if t=0 then 800
  12. 210 read a,d,s,r,w,p
  13. 250 print "[147]press a key to play the tune..."
  14. 260 get a$:if a$="" goto 260
  15. 300 poke tm,t
  16. 310 poke ad,a*16+d
  17. 320 poke sr,s*16+r
  18. 330 poke wf,w
  19. 340 poke pc,p
  20. 350 sys b
  21. 400 goto 200
  22. 500 data 70,7,9,0,0,17,0
  23. 600 data 65,2,7,0,0,33,1
  24. 700 data 0
  25. 799 :
  26. 800 print"[147]type 'run' when ready appears."
  27. 810 load"the main menu/bm",8,1
  28.